include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

;;======================================================================
data segment
	Head db "Vasilenko Anatoly. Group 111.$"
	Input db "Enter please sequence: $"
	
	Let_entr db 26 dup (0)
data ends
;;======================================================================

code segment 'code'
	assume ss:stack, ds:data, cs:code
start:
	mov ax,data
	mov ds,ax
	lea dx, Head
	outstr
	newline
	newline
	;;------------------------------------------------------------------
		lea dx, Input;
		outstr;
		
		L1:	inch bl;
			cmp bl, '.';
			je the_end;
			
			sub bl, 'A';
			mov bh, 0;
			cmp Let_entr[bx], 1;
			je L1;
			mov Let_entr[bx], 1;
			add bl, 'A';
			outch bl;
			jmp L1;
	;;------------------------------------------------------------------

the_end:
	newline;
	newline;
	mov ah,8
	int 21h
    finish
code ends

;;======================================================================
end start 

;;======================================================================
